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A ARTE DE FAZER LACOS 

A utilidade dos comandos FOR.:. NEXT. Como criar 
efeitos sonoros, Faca o sol se por, movendo ape- 
nas algumas teclas e desvende a beleza dos calei- 
doscopios. Como provocar repeticoes de um trecho 
de programa 21 
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APONTAR... FOGO! 

Aprenda a verificar se uma tecia foi pressionada 
e a controlar figuras em movimento na tela. Para 
que serve o comando INKEY$? Dispare seu mfssil 
e destrua o inimigo. Veja para que serve a auto- 
repeticao 29 
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APRENDA A CONTAR COM UM DEDO SO 

Alguns sistemas numericos. Faca contas em dife- 
rentes bases. sisterna binario constitui o idioma 
do computador. Uma calculadora para todas as ba- 
ses. Bits e Bytes. Para poder programar em lingua- 
gem de maquina, e necessario conhecer o sisterna 
binario 34 




PLANO DA OBRA 

"INPUT" e uma obra editada em fascicules semanais, e cada 
conjunto de 15 fasdculos compoe um volume. A capa para enca- 
dernacao de cada volume estara a venda oportunamente. 

COMPLETE SUA COLEgAO 

Exempiares atrasados, ate seis meses apos o encerramento da cole?ao, poderao 
ser comprados, a prefos atualizados, da seguinte forma: 1. Pessoalmente — por 
meio de seu jornaleiro ou dirigindo-se ao distribuidor local, cujo enderepo po- 
dera ser facilmente conseguido junto a qualquer jornaleiro de sua cidade. Em 
Sao Paulo OS endere(;os sao: RuaBrigadeiro Tobias, 773 (Centro); Av, Industrial, 
117 (SaiitoAndre);e, no Rio de Janeiro: RuadaPassagem,93(Botafogo).2. Por 
carta — Poderao ser solicitados exempiares atrasados tambijm por carta, que deve 
ser enviada para DINAR — Distribuidor Nacioral de Publica^oes — Niimeros 
Atrasados — Estrada Velha de Osasco, 132 (Jardim Tereza) — CEP 06000 — 
Osasco — Sao Paulo. 3. Por lelex — Utilize o n° (01 1) 33670 ABSA. Em Portu- 
gal, OS pedidosdevem ser feitosa Distribuidora Jardim de Publicagoes Ltd. — 
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AMIE OE fa: 
LACOS 



DESENHE NUMEROS COM LACOS 
FOR... NEXT 



APRENDA A CRIAR EFEITOS 



SONOROS 



Q NASCER £ POR-DO-SOL NO 

HORIZONTE DO ViOEQ 

CALEIDOSCOPIOS 



Os comandos FOR e NEXT servem 

para provocar repeticoes de urn 

trecho de programa em 

BASIC. Muito versateis, eles sao 

"pau para toda obra" e podem 

ser empregados em quase tudo, desde 

jogos ate programas comerciais. 



Um la^-o e uma estrulura dc progra- 
ma(;ao usada em opcrai^oes repetiiivas. 
Elc e usado quando se quer que o com- 
pLitador conte ate um certo numero, exe- 
cutando, ao mesmo tempo, alguma ou- 
tra opera^-ao. Alem disso, o laco pode 
ser aplicado na rcpetigao do mcsmo pa- 
drao grafico cm diferentes posigoes na 
tela, A combiria<;ao de instruijoes FOR 



e NKXT na linguagem BASIC e usada 
na programafao de diversos tipos de 
lagos. 

Assim, voce aprendera a criar "pin- 
luras instantaneas" usando la^os 
FOR... INKXT em programas muito pe- 
quenos. Esses la(;os serao igualmenie 
uteis na programa^;ao de jogos e em pro- 
gramas de todos OS tipos. 




PR0CMMA^BASIC'T\ 



OQUEEUMLACOFOR... NEXT 



Urn lavo FOR... NEXT em BASIC 
e um mecanismo que faz com que o 
computador repita uma mesma opera- 
ijao certo niimero de vezes. 

Suponha, por exemplo, que voce qui- 
sesse saber as raizes quadradas de todos 
OS numeros de f a 100. Voce poderia di- 
zer ao computador: 

PRINT SQR(l) 
PRINT 5QR(2) 
PRINT SQR(3) 

... e assim por diante, 

E a cada pergunta o computador da- 
ria a resposta. Mas. alem de impor um 
enorme trabalho de digitagao aos seus 
dedos, esta nSo e uma tecnica particu- 
larmenie eficieme de uso do compuia- 
dor. Tenie assim; 



iDEiSlf^^'^ 



10 FOR N-1 TO 100 
20 PRINT N,SQR(N} 
3 NEXT N 
40 PRINT "E ACABOU." 

Esse programs faz com que o com- 
putador imprima 1 e sua raiz quadrada, 
2 e sua raiz quadrada, 3 e sua raiz qua- 
drada... e assim sucessivamente ate atin- 
gir 100, no momento em que o apare- 
Iho pdra. 

Como ele faz isto? Quando o com- 
putador encontra um FOR, "sabe" que 
as linhas seguintes serao repetidas. As- 
sim, ele as executa ate encontrar o 
NEXT, volla a linha da instrufao FOR 
e repete o processo. 

Enquanto trabalha, o computador 
tambem esta contando. A primeira vez 
em que passa pela linha 20 ele calcula 
a raiz quadrada de I, na segunda, a de 
2, e assim por diante. 

Quando tiver trabalhado com o 
maior niimero da in.strucao FOR, ele 
deixara automaticamente o lapo e con- 
tinuara a execugao do programa pela 
instru^ao seguinte ao IN EXT — no nos- 
so caso o PRINT da linha 40, 



FRACOES TAMBEM 



Ao executar um lato FOR... NEXT, 

o computador pode contar em unidades 
diferenles de 1 . Para isso, usamos a de- 
clarai;ao STEP (isto e "passo" ou "de- 
grau") junto com a declarai^ao FOR. 
Veja o exemplo: 



O computador nao se atrapalha com 
o fato de que 30 nao se divide em um 
niimero exato de passos, como voce pe- 
diu. Ele vai o mais perto que pode e en- 
tao para. 

O niimero de linhas entrc o FOR c o 
NEXT tampouco o preocupa. Voce po- 
de colocar o FOR na linha 10 e o NEXT 
na 90 — ou mesmo 9000 — que ele nao 
se esquecera delas. Lembre-se, porem, 
de que o computador executara a.s linhas 
do lafo a cada passagem. 



COMO RETARDAR A ACAO 



O lago FOR... NEXT tern dezenas de 
usos em programa^ao. A mais simples 
deias e gastar tempo. 

Se voce rever a segao Voce sabe fa- 
buada? na primeira li<;ao de BASIC, en- 
contrara um b'om exemplo. Nesse caso, 
tudo que acontece entre cada FOR e 
o scu NEXT e que o computador "con- 
ta" um niimero. Essa contagem e mui- 
to rapida (o tempo exato pode ser da or- 
dem de centesimos ou milesimos de se- 
gundo). Mas, enquanto espera que ele 
conte ate 1000, voce tera uma pausa bcm 
percept ivel. E se voce execuiar: 

10 FOR N-l TO 1000000 
20 NEXT N 

... tera tempo, provavclmente, para to- 
mar um cafd antes que ele termine. 



APELO SONORO 



Programadores de jogos freqiiente- 
mente tornam essas pausas menos can- 
sat ivas, inserindo nelas algumas not as 
musicals. Tente este exemplo: 



O 



10 FOR 1=255 TO 155 STEP -1 
20 SOUND I , 1 
30 NEXT I 



10 FOR n-29 TO 10 STEP -1 
20 SOUND .OlS.n 
30 NEXT n 



fm 



5 SOUND 7, 56: SOUND 6,15 
10 FOR I-2S5 TO STEP -1 
20 SOUND 0,1 
30 NEXT I 



iaa[i][^^'<^ a] 




10 F0B»N-1 TO 30 STEP 2.7 
j 20 PRINT N,SQa(N) 
30 NEXT N 



10 FOR N - 1 TO 100 

20 PRINT PEEK { - 16336), 

30 NEXT N 



O Apple II padrao nao tern coman- 
dos intrinsecos para a producao de elei- 
tos sonoros. Dessc modo, o efeito coii- 
seguido e apcnas uma serie de cliques. 
Ja o TK-2000 tern o comando SOUND. 
Para rodar o programa acima no 
TK-2000, substitua as linhas 10 e 20 
assim: 

10 FOR I-eO TO 15 STEP -2 
20 SOUND 1,30 

Este e um exemplo do efeito de som 
que OS programadores usam em jogos 
para diizer "Voce falhou" ou "O alie- 



nig 

qut 

va, 

(;o 

um 

nui 



sai 

crii 
Aq 




in- 
'ei- 
)n- 
es. 
D. 
no 
20 



lie- 



nigena aierrisou". Ao mesmo tempo, 
quando se faz uma contagem regressi- 
va, a declaragao STEP existente no la- 
?o FOR... NEXT deve ser seguida de 
urn niJmero negativo, destinado a dimi- 
nuir sua t'reqiiencia. 



PINTANOO SETE E OUTROS NUMEROS 



Apenas por divertimento — e valio- 
sa experiencia em programaijao — voce 
pode usar lafos FOR... NEXT para 
criar variedades de efeitos graficos, 
Aqui esta uma amostra: 



Ei 



7 CLS 

10 FOR N-0 TO 63 

20 LET M=RND(32)-1 

30 LET C=RND(9)-1 

40 SET (N.M.C) 

50 NEXT N 

60 GOTO 10 



10 FOB n-0 TO 21 
20 LET ni=BND*31 
30 INK RND*7+1 




Os comandos ou palfivras-chave em 
BASIC, tal como PRINT, GOTO, 
STEP, etc., precisam ser digitados 
sempre em letras maiusculas? 

Sim, quase sempre, E precise con- 
siderar, no entanto. as especificidades 
das diversas linhas. Alguns computa- 
dores, como os compatfveis com o 
ZX-81 e o Sinclair Spectrum n§o dei- 
xam margem a duvidas, pois as paia- 
vras-chave sao entradas por inteiro, em 
maiusculas, ao se pressionar a tecia 
correspondente. 

Outros computadores, como os 
compatfveis com a linha TK-2000 e os 
Apple II e Apple II Plus, nao tern minus- 
culas le nam aceitam comandos que 
nao sejam em maiusculas, caso vocd 
tenha essa opqao em sua maquina). 

Ftnalmente, os compativeis com as 
linhas iVISX e TRS-80 aceitam coman- 
dos em minusculas, mas convertem in- 
ternamente para maiusculas todos os 
comandos em BASIC, 



40 PRINT AT n,[n; 
bO NEXT n 
60 GOTO 10 



m 



10 


SCREEN 3 






20 


R-RND(-TIME) 






30 


FOR N-0 TO 191 STEP 


4 


40 


LET M-RNDCD* 


255 




50 


LET C-RND(l)* 


15 




60 


PSET(M,N) ,C 






70 


NEXT N 






BO 


GOTO 30 






lEE] 




5 


GR 






10 


FOR N - TO 


39 




20 


LET M = RND 


CD * 


40 


30 


COLOR- RND 


(1) * 


15 


40 


PLOT M,N 






50 


NEXT N 






60 


GOTO 10 







A linha 10 define a altura do desenho 
que sera colocado no video e diz ao 
computador para imprimi-io [inha por 
linha. 

A linha 20 define a largura e, soma- 
da a linha 40, ordena ao computador 
que imprima pequenos quadrados alea- 
toriamente naquela largura disponivel. 

A linha 30 escolhe, ao acaso, as co- ^ 
res dos quadradirthos. 



2 PRdokJm^o BASIC f 




Inicialmenle, lormn-se nil tela uma "cuicliu de rctathos'". 



que cnnlinua ast repeltr. Tsla c a vcrsao para ii Tk-WX. 



VARIACOES SOBRE UM' MESMO TEMA 



Experimeniar variavocs dcsse tenia de 
elaborai^ao de graficos vai ajudd-lo a se 
familiarizar com la<;os FOR... NKXT e 
com a tunv^ao RNI). 

Aqui temos mais duas para cada ma- 
quina. NSo se esquev'a de digit ar o co- 
mando NEW enire eltLs, para eviiar que 
OS programas se misturem. 



UD 



a cLso 

10 FOR 



O TR.S-80 comum c sens uompati'veis 
nao selecioiiain a cor do pontu gnifico; 
por isso o programa nao lem niuim gra- 
ca. Se voce cjuiser ver eomo e, subsiiuia 
na versao abaixo a iinlia 40 e retire a li- 
nha 30; 

40 SET (N.M) 




20 
30 
40 
45 
50 
60 



FOR 

LET 

SET 

NEXT 

NEXT 

GOTO 



N-1 TO 60 
M=0 TO 31 
C=aND(9J-l 
[N.M.O 

M 

N 

10 



Teiile tambem a 
para o TRS-Color: 



seguinie vana^ao 



8 CLSO 
10 LET 

FOR 
LET 
SET 
NEXT 



20 
30 
40 
45 
60 



N=RND(60) 
M-0 TO 31 
C=RND(9)-1 
(N,M,C) 
M 



GOTO 10 



10 FOR n-0 TO 21 

20 FOB m-O TO 31 

30 INK RND*7+1 

40 PRINT AT n,Bl; "■" 

45 NEXT m 

50 NEXT n 

60 GOTO lO 

Da mesma lorma, o ZX-81 nao tern 
cor- Para rodar o programa, retire a ti- 
nha 30 e use apenas letras minusciilas, 
quando digila-lo. 

Para o TK-90X, tente ainda a seguin- 
ie variat;ao do programa. O que aeon- 
lece de diferente? 

10 LET n-nND*21 

20 FOR m-O TO 31 

30 INK RND*7+1 

40 PRINT AT n, !«;"■' 

4 5 NEXT m 

69 GOTO 10 



1^ 



10 SCREEN 3 




Por-do-Mil, df autofia do lafo FOR.., i^hl.Xt para a TK-2000. 



A verssu do Apple II para o Calridosctipio. 



20 R-RND{-TIME) 

30 FOR N-0 TO 191 STEP 

40 FOR M-O TO 255 STEP 

50 LET C-H^fDCl)*15 

60 PSET(M,N) .C 

65 NEXT M 

70 NEXT N 

aO GOTO 3 



IE 






10 


GR 






20 


LET N = 


HND 


(1 


30 


FOR M = 


TO 


39 


40 


COLOR- 


RND 


(1) 


50 


PLOT M,N 




60 


NEXT M 






80 


GOTO ZO 







40 



15 



Antes de ir adiante, aqui estd uma pe- 
quena cxperiencia que voce dcveria len- 
lar — apenas no TK90X e no CP400. 
Apagiie a linha 45 dos dois prtmciros 
programas e rode-os novamente com a 
seguinte modil'icav'ao: 



55 NEXT M 

Voce descobriu inais uma caractcrfs- 
tica imporlantc dos lai;os FOR... 
NEXT; quando sc tern dois ou mais la- 
Qos no niesmo programa, estes devem ti- 
car ou "aninhados" um no outro ou sc- 
parados, Se eles se cruzam, o programa 
nao funciona. 



POR-DO-SOL 



Este programa iisa um laitO FOK... 
NEXT para criar um padrao dc "por- 
do-sol". A primeira parte do programa 
derine utn ponto no meio da tela. Em 
seguida, ek desenha iinhas luminosas 



que irradiam desse foco. 

A segunda parte desenha uma -serie 
de Iinhas na meiade inferior do video, 
pariindo de ponlos fixos no "horizon- 
ce". fsso cria um belo efeito de pcrspec- 
tiva que pode ser aproveitado em pro- 
gramas futures. 



Wi 



D 



20 PMODE 3,1 

30 PCLS 3 

40 COLOR 2 

50 SCREEN 1,0 

60 FOR N-1 TO 60 

70 LINE (127,95) -{256-RND( 256) ,9 

6-RND(96) ) pPSET 

80 NEXT N 

90 COLOR 4 

100 FOR N=95 TO 191 STEP 12 

110 LINE (127, 95)^(0, N) .PSET 

120 LINE (127,95)-(255.N) ,PSET 

130 NEXT N 

140 FOR N=0 TO 255 STEP 10 

150 LINEC127,95)-(N,191) ,PSET 

160 NEXT N 

170 GOTO 170 



5 BORDER 0: PAPER 0: INK 6: 
CLS 
10 FOR n-1 TO 80 
20 PLOT 127,75 
30 DRAM INT (RND*250)-125,INT 

(RND*97) 
40 NEXT n 
45 INK 5 

50 FOR n-75 TO STEP "15 
60 PLOT 127,75 
70 DRAW -127, -n: PLOT 127,75: 

DRAW 12 7,-n 
80 NEXT n 
100 FOR n--127 TO 127 STEP 20 
110 PLOT 127,75 
120 DRAW n,-7S 
130 NEXT n 



{2S6-HHD{1)*25 



20 SCREEN 2 

3 CLS 

40 COLOR 11 

50 R-RND(-TIME) 

60 FOR N-1 TO 80 

70 LINE (127,95)- 

6,96-RND(l)*96) 

80 NEXT N 

90 COLOR 6 

100 FOR N-95 TO 191 STEP 12 

110 LINE {127,95)-(0,N> 

120 LINE (127.95)-[255,N} 

130 NEXT N 

140 FOR N-0 TO 255 STEP 10 

150 LINE (127,95)-(N,i91) 

160 NEXT N 

170 GOTO 170 



HIE] 



10 

20 

30 

40 

279, 

50 

60 

70 

80 

90 

100 

110 

120 

130 



HGR 

HCOLOR- 5 

FOR I - I TO 60 

HPLOT 139,79 TO RND (1) • 

RNn <1) « 79 
NEXT I 
HCOLOR- 6 

FOR I - 79 TO 159 STEP 10 
HPLOT 139. 79 TO 0,1 
HPLOT 139,79 TO 279.1 

NEXT I 

FOR I - TO 279 STEP 20 

HPLOT 139, 79 TO 1,159 

NEXT I 



CALEIDOSCOPIOS 



Finalmente, temos um programa es- 
petacular que funciona em quatro de 
nossas maquinas. 



D 

3 PMODE 
6 PCLS 



3,1 



I ^ nOGBAMA^lO BASIC 




No TK-80X o C. 



..opiu i' niais ^roiiSi'iru <; inlenfiu 



ma:* ^eu padruit ilt loriiiLt!> t t:<jrt;M i' <>i.'iiipre cambianle. 



9 SCREEN 1.0 

10 FOH L-0 TO 255 STEP 2 
15 COLOR RND(4) 

20 LINE(0,0)-(L,19i) ,PSET 

30 LINE (255,0)- t255-L, 191) .PSE 

T 

40 LINE(0,191)-(L,0) ,PSET 

50 LINE (255,191)-(255-L,0) .PSE 

T 

60 MEXT L 

70 GOTO 10 



10 FOB n=0 TO 255 STEP 3 

15 INK RND*8 

20 PLOT 0,0: DRAW n,175 

30 PLOT 255,0: DRAW -n,175 

40 PLOT 0,1?5: DRAW n,-175 

50 PLOT 255,175: DRAW -n,-175 



60 NEXT n 
70 GOTO 10 




USE O LAQO CERTO 

Existem muitas oportunidades para 
usar OS comandos FOR... NEXT em la- 
gos, mas tamb^m muitas ocasioes em 
que voc6 nao dewe empregS-los, 

Quando voce quiser, por exempio, 
forpar o programa a realizar um nume- 
ro fixo de repetigoes, sem interrupcao 
em quaisquer fases do processamen 
to, use um lago FOR... NEXT. 

Em contrapartida, se vocS quiser 
que uma seqiJencia de programa seja 
executada at^ que uma determinada 
condicao seja atingida, para em segui- 
da "sair" de dentro do iaco, use uma 
declarag§o diferente, no lugar de 
FOR... NEXT, comando mais reco- 
mendavel em casos assim 6 a GOTO, 
em BASIC. 



m 



3 R-RND(-TIME) 
6 CLS 

9 SCREEN 2 

10 FOH L-0 TO 255 STEP 2 
15 COLOR RND(l) *X5 

20 LINE (0,O)-(L,191) 

30 LINE (255,0)-(255-L,191} 

40 LINE (0,191)-(L,0) 

50 LINE (255,191)-(255-L.O) 

60 NEXT L 

70 GOTO 10 



[i]m 



10 HGR 

20 FOH N - TO 279 STEP 5 

30 BCOLOR- H^^> CD * 6 + 1 

40 HPLOT 0,0 TO N,159 

50 HPLOT 279,0 TO 279 - 

60 HPLOT 0.159 TO N,0 

70 HPLOT 279,159 TO 279 

8 NEXT N 

90 GOTO 20 



N,159 



N,0 



Cada um dos quatro .segmenta.s des- 
ses padroes comega com um ponto em 
um canto do video. O que o lafo FOR... 
NEXT faz e contar ate o outro lado do 
video, enquanto um padrao de linha.s e 
deseiihado entre os dois pontos criados 
dessa forma. 

A explicafao exata de como os gra- 
ficos funcionam esta em um capitulo 
posterior, mas apague as linhas 30 e 40 
e voce (era uma ideia geral do que 
acontece. 

Voce pode e.KperJmeniar, ainda, di- 
giUindo cilgumas das.iinhas rcsponsaveis 
pelo desenho. variando as cores, mu- 
dando os STKP tia linha 10 e excluin- 
do o GOTO na linha linal. Em minutos 



voce pode criar centenas de padroes di- 
ferentes, um verdadeiro caleidosc6pio 
de t'ormas e cores. 

Ao fazer ludo isso, voce nao estara 
so criando belas imagens no video. Vo- 
ce estara lambem se famitiarizando com 
uma das mais litcis "Ferramentas" do 
programador. 




Como deuo proceder para manter 
um regjstro de todas as vari^veis usa- 
das am meus programas. sem me per- 
der entre tantos Xs e Ys? 

Uma forma de evitar o uso desorde- 
nado de variaveis em um programa i 
dar Ihes nomes que lembrem o que elas 
representam (nomes mnemonicos). Por 
exempio, se uma varidvel 6 usada pa- 
ra armazenar o numero de espacona- 
ves abatfdas em um jogo, podemos 
"batiz^-la" de MAVES. 

E f^cil manter um registro de varia- 
veis num programa curto. No caso de 
programas mais longos, convem ejfpii- 
citar mais ciaramente certas funcoes. 
Assim, utilize FOR LINHA = ... e FOR 
COLUNA ~ ... (se voce estiver colo- 
cando coisas na tela I em vez: de FOR 
X = ... e FOR Y = ... 

Alguns computadores, como o 
TRS-80 e o Apple 11, reconhecem ape- 
nas as duas primeiras fetras de uma va- 
riSvel, descartando as demais, Neste 
caso, tente utiiizar tniciais que funcio- 
nem como abreviaturas sdequadas, co- 
mo T para "tempo", RC para "recor- 
de", L para "linha", e assim por diante. 




CO^fO O COMPUTADOR E CAPAZ 
DE HEPETIR TRECHOS DE UM PROGRAMA 



A capacidade de repenr de forma 
controlada o mesmo irevho de um 
programa pode ser encorurada em lo- 
das as linguugens de programafdo. 
No BASIC, a programa(;ao de l<i<;os 
€ muito facilimda pelos comandos 
FOR. STEP e NEXT, explkados nes- 
ta lii'do; porem eles nao sao es- 
senciais. 

Epossivel programar la<;os de re- 
peli^ao de auiro modo, simptesmen- 
le iisandO'Se uma varidvel contado- 
ra e uma titiha com a dedara^'do (on 



comando) IF. 

Dessa forma, a programa(;ao dire- 
la de repe(i(;des exemplifica de mo- 
do mats dam e objeiivo a maneira 
que o vompiilador usa, internamen- 
le, para repel ir irechos de um 
programa. 

Siiponhamns que o programador 
qiieira imprimir dez vezes a tnesma 
mensageni iia tela, ma/ido o toman- 
do PRINT. Jnicialmenle, e preciso 
definir e igiialar a uma varidvel con- 
tudora (por exenipto, N). Em segui- 



da, a cada repeti(ao do lafo, essa va- 
ridvel e incrementada, somando-se o 
mimero I ao valor anterior (es!e nii- 
mero corresponde, no case, ao valor 
STEP no comando FOR^ Finalmen- 
le, uma linha adicionaf do programa 
deve festar se esse^ator de N e maior 
do que iO. Se nao for, o fafo sera re- 
petido por rneio de um comando GO- 
TO e enviard o programa para trds. 
Se for maior do que 10, o programa 
lerminard ou prosseguird para outro 
trecho. 



r 



OGRAMAqkODEJOQ^. 
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Os videogames para microcomputa- 
dores. como o Space Invaders, nao le- 
riam nenhuma gratia sc a movimentai;ao 
e OS disparos do canhao laser nao pu- 
dessem ser controlados pelo jogador si- 
mullaneamente com o desenrolar do jo- 
go. Esse [ipo de controle atraves do tc- 
elado on iiojoyxiick e uma caracterisU- 
ca de todos os jogos de agao, mesmo os 
mais simples. 

O elemento mais importante dessa 
lecnica de programai^ao e como fazer 
para que o computador perceba auto- 
maticamente quando uma lecla qual- 
quer e pressionada, sem que seja neces- 
sario acionar todas as vezes as teeias 
< ENTER > ou < RETURN >. Feito 
isso, o programa pode tomar decisoes 
sobre que grafico animar, que "disco 
voador" destruir, etc. Outro aspecio es- 
sencial e que, enquanto o jogador nao >j 
acionar os controles de jogo, o compu- 
tador podera se dedicar a movimenta- 
gao continua de grat'icos e figuras sobre 
~i a tela, usando as tecnicas aprendidas na 
ultima li^ao de programav'ao de jogos. 



COMO DETECTAR TECLAS PflESSIONADAS 



till princijiio, ludos os micros usam 
o mesmo metodo para detectar se uma 
tecla foi pressionada. Mas, como os co- 
mandos do BASIC para Cssa fun^ao nao 
foram padronizados, ha uma grande va- 
riabilidade enire os diversos tipos de 
computadores. 



QD! 



Para a maioria dos computadores 
que utilizam o interpreiador da lingua- 
gem Microsoft BASIC (adotada nos mi- 
cros da linha TRS-80, Sinclair e MSX), 
a funtf-ao utilizada para detectar se uma 



tecla foi pressionada chama-se IN KEYS. 
Ao encontrar essa fun^ao em um pro- 
grama, o computador executa uma 
"varredura" do leclado, para ver se al- 
guma passou do est ado de desligada pa- 
ra ligada, e retorna o caractere ao pro- 
grama atraves da funv'ao INKEYS. Se 
nada foi pressionado, a fungao volta 
com um valor "vazio". 
Por exemplo: 



2( 

3( 
4C 



2C 

3{ 
Gt 

4( 
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PROGRAMApiO DiJOGOS 



UMA TECLA FOi PRESSIONADA 





APRENDA A DETECTAR SE 



CONSTRUA BLQCOS GRAFICOS 
DESTRUA INIMIGO 



DISPARE SEU MISSIL 



BASES DE MISSEIS 



COMO CONTROLAR UMA 



FIGURA EM MOVIMENTO 



A AUTO-REPET ICAO 

COMO MONTAR ALVOS MOVEIS 





QEi 



20 CLS 

30 LET A$-INKEY$:IF AS- 

GOTO 30 

40 PRINT 8269. -OPA!" 



THEN 



20 CLS 

30 IF INKEYS-"" THEN GOTO 30 

40 PRINT AT 11, 14;''Al ! ** 



m 



20 CLS 

30 LET AS-INKEYS:IF AS-'" THEN 

GOTO 30 

40 LOCATE 18. 11: PRINT "Ul !' 



Execute o programa e pressione quai- 
quer tecla, a exce(;ao de <CAPS 
SHIFT> ou <SYMBOL SHIFT 1> 

(nos Sinclair), <BREAK> ou 
< SHIFT > (nos TRS-80) ou <CTRL 
STOP> ou < SHIFT > (no MSX). O 
computador vai exibir um "grito de 
dor" no meio da tela, O programa fun- 
ciona da seguinte maneira: 

A tinha 20 limpa a tela. A linha 30 
faz com que o computador espere ate 
que uma tecta seja acionada para conti- 
nuar o programa. Note que nao ha es- 
patjos entre as aspas. Por causa disto, 
a linha 30 quer dizer: "Se 
IINItEY$ = nada, ou se iienhuma tecla 
esta sendo pressionada, cheque nova- 
mente". E muito importante ter o 
IF.. .THEN GOTO 30 porque de outra 
forma o computador verificaria apenas 
uma vez o leclado e so por uma fracao 
de segundo, 

Assim que uma tecla e acionada, 
INKEVSe iguaiado k tecla. Por exem- 
plo, se "3" e pressionado, enlao 
INKEYS- "3". Isso basta para que a 
linha 40 imprima "Ai!" na tela. 

Na maioria dos jogos voce deve prc.'i- 
sionar uma tecta para mover um tanque, 
uma missil, etc. Se voce mudar a linha 
40, vera como isto e feilo (no TK-85 use 
um "D" maiiisculo): 



DEI 



40 IF A$-"D" THEN PRINT e264,"H 
UM, ISSO E BOM!" ELSE PRINT #26 
9, "OPA! " 



40 IF INKEY$-"d- THEN PRINT 

AT 11, 9; "Hun, iaao e bom!": 

STOP 

50 PRINT AT ll,14:"Al !" 



mi 



20 CLS 

30 LET AS~INKEY$:IF AS-"" THEN 

GOTO 30 

40 IF A$-'D" OR AS-"d" THEN LOC 

ATE 10, 11: PRINT "mma... Ibho # 

bom I ' : END 

50 LOCATE 18.11 [PRINT "Ul !" 

A linha 40 agora verifies se a tecla 
"D" foi pressionada, ou seja, se 



INKEVSe igual a "D" ou a "d". Senao 
for, o programa para os micros da linha 
Sinclair, que nao tern a declara^ao EL- 
SE, vao ignorar a linha 40 e passar pa- 
ra a linha 50, Qualquer outra tecla di- 
ferente de "D" mostrari, quando pres- 
sionada, a segunda mensagem de "rea- 
i;ao emocional". Nos micros de outras 
linhas, o IF...THEN...ELSE permite 
programar em uma linica linha as duas 
alternativas, 

Existem mais duas exigencias impor- 
tant es ncsse programa. A primeira e que 
o *'D" ou "d" precisa estar entre aspas, 
ou o computador o interpretara como 
uma variavel. A segunda vale apenas pa- 
ra o TK-90X: nessa linha de micros, 
deve-se usar um "d" minuscuto; caso 
contrario voce deve pressionar <CAPS 
SHIFT > e "d" para que o programa 
funcione. 

Tanto nesse programa quanto no an- 
terior e possivel notar que lodos os com- 
putadores utilizam exalamente a mesma 
tecnica de investigacao do teclado. Ape- 
nas a maneira de colocar uma mensa- 
gem no meio da tela e difereme para ca- 
da um. 



DISPARE SEU MJSSIL 



Agora voce vera que a partir da de- 
tecgao do prcssionamento de uma tecla 
usando o IF INKEYS = "tecia" e mui- 
to faci! disparar um missii ou mover 
uma base de foguetes. Este programa 
dispara um missil de uma base quando 
a tecla "F" c acionada: 

20 CLS 

30 PRINT §397, "»#l" 

40 LET KS-INKEYS:IF KS-""THEN G 

OTO 40 

50 IF KS-"F" THEN LET M-334 ELS 

E GOTO 40 

60 PRINT «M, " t" 

70 PRINT @M+32," " 

80 LET M-M-32 

90 IF M>0 THEN GOTO 60 

100 GOTO 20 



El 

10 CLS 

20 PRINT e797. 

30 KS=INKEYS ; 



IF K3= 



GOTO 30 



40 


IF K-"F" THEN M=374 




GOTO 3 


50 


PRINT @M,CHRS{94) ; 


60 


PRINT eM+64. " " i 


70 


M-M-64 


80 


IF M>0 GOTO 50 


90 


GOTO 10 



ELSE 



Para rodar tambcm no ZX-81, digi- 
ts o programa abaixo apcnas com letras 
maiiisculas: 

20 CLS 

30 PRINT AT 21,14;"««« " 

40 IF INKEYS^"" THEN GOTO 40 

50 IF INKEYSO^f THEN GOTO 40 

55 LET y-20 

60 PRINT AT y,15 ; "T" 

70 LET y=y-l 

75 PAUSE 1 

80 PRINT AT y+1 , 15; " " 

90 IF y>0 THEN GOTO 60 



m 



30 



20 CLS 

30 LOCATE 17, 20: PRINT " aiti " 
40 LET K$*'INKEV$: IF KS^*"" THEN 
GOTO 40 
50 IF KS-"F" OR KS-"f" THEN LET 

M-20 ELSE GOTO 40 
60 LOCATE 18.M:PHINT" " 
70 LOCATE 18, M+1: PRINT " " 
80 LET M-M-1 
90 IF M>0 THEN GOTO 60 
100 GOTO 20 

A linha 30 imprirne uma base de mis- 
sels formada de Ires simbolos (no Sin- 
clair e no MSX, tres simbolos graficos), 
na parte mais baixa da tela (ultima 
linha). 

Na linha 40. LET K$ = INKKYS e 
muito importante, visto que voce quer 
checar se a tecla foi pressionada varias 
vezes durante o programa. Esia nao fun- 
cionaria sem essa declarafao. O compu- 
tador se recorda do valor de 
INKKYS apenas porunla fragao de se- 
gundo e, se voce nao checar 
I\KEY$ suHcientemcnte rapido, elepo- 
dc c-squeccr que a tecla foi pressionada. 

Ma.«i. voce pode lambem fazer com 
que eie se lembre do que foi teclado dan- 
do urn nome, KS, a tecla que foi pres- 
sionada e checando mais larde (versao 
para a linha TRS), ou dando urn novo 
comando INKEYS. 

A linha 50 verifica se "F" foi pres- 
sionado. Se nao, o programa volt a a li- 
nha 40 e continua a varrer o teclado. 
"M" e a posicao do missil dcpois de ler 
sido disparado. 

A linha 60 imprirne o missil rta tela 
e a linha 70 se encarrega de apaga-lo de 
suas posigoes anteriores. 

A linha 80 fa? o missil se deslocar pa- 




ra cima na tela, e a linlia 90 evita que 
o compLitador tenie imprimir o misstl 
numa posigao fora do video, o que pro- 
vocaria uma mensagem de erro. A pri- 
meira posi<;ao de tela tem o niimero 0, 
e o computador nao podc imprimir na- 
da em uma posigao de numero menor 
que 0. Quando M = o programa e rei- 
niciado. A tecnica a scr utilizada para 
fazer o missil subir vai dependcr, ago- 
ra, do formato da tela do computador 
utilizado. 



DO 



A linha 80 subtrai um numero cons- 
tante N da posigao anterior do missil 
(variavel M), de maneira que e!c avan- 
ga umalinha em direcao ao topo da te- 
la a cada vez que e impresso. Esse nii- 
mero vale 32 para os micros compativeis 
com o TRS-Color. pois ha 32 colunas 
na tela do computadtTr. Ja para o 
TRS-80, o nijmcro e 64. 



A tinha 80 subtrai 1 da posigao ante- 
rior do missil, pois o comando de posi- 
cionamento utilizado, o PRINT AT, 
idemifica as coordenadas (!inha, colu- 
na) onde serao exibidos os gratlcos. As- 
sim, a coiutia e maniida constante", pa- 
ra o missil subir "reto", na coluna 15, 
c o que varia c Y, on a aitura dele (lem- 
bre-se de que Y = esta no lopo da te- 
la, e nao embaixo. 

m 

O comando de posicionamento e o 
LOCATE, que da as coordenadas para 
posicionamento. A linha 80 tern por 
fungao diminuir em 1 o valor anterior 
do missil (variavel M), para que ele se 
desioque para cima, na mesma coluna 
(constante Ifi). 



MOVIMEMTOS SOBRE A TELA 



Da forma que esta, o programa da 
base de misscis e bastantc limitado pa- 
ra um jogo de "artilharia", mas, impri- 
mindo movimento lateral a ba.se conse- 
guiremos melhora-lo um pouco. Veja- 
mos como fazer isso: 



20 CLS 

30 LET P-397 

40 PRINT eP.CHHS C143) +CHRS(140> 

+CHRS{128)+CHRSa40)+CHR$(14 3) 

50 LET K$-INKEy$:IF K$-"" THEig 

GOTO 50 

60 IF KS-'E" THEN LET P-P-1 rGOT 

O 90 



70 IF K$-''D" THEN LET P-P+1:G0T 

90 

80 GOTO 50 

90 IF P084 OR P>411 THEN GOTO 

50 

100 GOTO 40 

A linha 30 determina a posigao ini- 
cia! da base, e a linha 40coloca o missil 
naquela posigao. 

A linha 50 verifica o teclado, fazen- 
do o computador espcrar ate que uma 
tecia seja pressionada. 

A linha 60 invcstiga se "L" foi pres- 
sionado. Se foi, ela move a base uma 
posigao para a esquerda, .subtraindo 1 
do niimero que determina a posigao da 
base. A linha 70 con fere se "R"' foi 
prcssionado e nessc ca.so muda a posi- 
gao da base adicionando 1 a coordena- 
da. A linha 90, finalmentej verifica se 
o programa esta dizendo ao computa- 
dor para colocar a base fora da tela — 
em caso afirmativo, o programa retor- 
na a linha 50. 



ZO CLS 
30 P=797 

40 PRINTeP,CHFl$U2)-i-CHR$(184) + 
CHR$<19l)+CHRStl80)+CHH$(32) 
SO KS^INKEYS : IF KS="" GOTO 50 
60 IF K3 = '*L" THEN P=P-1 
70 IF KS="R" THEN P=P+1 
80 GOTO 50 

90 IF P<767 OR P>B2a GOTO 50 
100 GOTO 40 

O programa para o TRS-80 funcio- 
na de modo ideniico ao programa para 
o TRS-Color. Note que os caracteres 
grafieos tem simbolos diferentes. bem 
como as coordenadas de posicionamen- 
to dos comandos PRINT @. 



Para rodar tambem no ZX-81, digi- 
te o programa abaixo apenas com letras 
maiiisculas. Alem dis.so, ponha os co- 
mandos LKT da linha 80 em duas linhas 
separadas. 



30 

40 
50 
60 
70 
80 
90 
100 
110 

y-1 

120 
y+1 
130 
X. 1 
140 
x+l 



CLS 

LET x-15 

LET y-13 

PRINT AT y,x;" tiBti ' 

IF INKEYS-"" THEN GOTO 70 

LET IJt-x; LET ly-y 

PRINT AT ly ,lx: ' 

IF INKEYS^'q" THEN STOP 

IF INKEYS-'w" THEN LET y- 

IF INKEY$~"z" THEN LET y- 

IF INKEY$-"a" THEN LET K- 

IF INKEYS-'s" THEN LET x- 




Posso escotber qualquer tecIa para 
operar os controles de um jogo no mi- 
crocomputador? 

Sim. Tudo o que voce tem a fazer 
e mudar os caracteres nas linhas do 
programa que testam qual foi a tecIa 
pressionada e detectada por INKEY$. 
Mas Guidado: o que parece ser bastan- 
te logico na teoria ^s vezes funciona 
mal na prStica. Porexemplo, usaras te- 
clas E, D, C, B para representar esquer- 
da, direita, em cima e embaixo, dificul- 
ta as acoes do jogador. Por isso, 
costumam-se usar as teclas de movt- 
mentagao do cursor, principalmente 
nos computadores onde elas estao 
aglomeradas no mesmo ponto do tecla- 
do. ou preserles em pares complemen- 
tares. Outra dica e usar A e Z, para mo- 
vimentar para cima e para baixo, e K 
e L para direita e para esquerda, pois 
ocupam posicdes opostas no teclado. 
Ja a barra de espagos e muito boa pa- 
ra efetuar disparos, pois o polegar po- 
de se apoiar nela. 



150 IF X<1 OR X>29 THEN LET K 

-Ix 

160 IF y<l OR y>20 THEN LET y 

-ly 

170 GOTO 60 

As linhas 40 e SO estabdecem a posi- 
gao inicial da base de misseis, na 13? li- 
nha da tela, e quinze espagos a esquer- 
da. A tinha 60 mostra a base na tela. 

A linha 70 faz o computador esperar 
ate que alguma tecla seja impressa. Se 
foi, a base e movida. 

As linhas 80e90 "perseguem" a ba- 
se de missels em movimento, colocan- 
do iTca espagos em branco sobre sua ul- 
tima localizagaof de modo a apaga-la. 
Como a linha 60 esta dentro do lago de 
repetigao e sempre vem antes da linha 
90, a base e sempre impressa em sua no- 
va posigao antes que a posigao antiga se- 
ja apagada. 

A linha 100 termina o programa se 
a letra Q (de {juit, em ingles, que signi- 
fica abandone) for pressionada. 

A linha 1 10, por sua vez, verifica se 
a tecla "W" foi acionada, subtraindo 
1 do valor de "Y" em caso afirmativo. 
O efeito disso e a movimentagao da ba- 
se uma linha para cima. 

As linhas 120 a 140 operam de for- 
ma similar. A linha 120 move abase pa- 
ra baixo se "Z" e pressionado. K 

A linha 130, move para a esquerda, Ki 



caso "A" seja acionado, e a 140 para 
a direita, aosc pressionar "^". A linha 
150 evita que a base seja colocada fora 
das laterals da tela, 

A linha 160 impede que a base saia 
por cima ou por baixo da tela. Neste ca- 
so, I'azer Y = LY resolve o problema. A 
linha 170 fecha o lav'o, reiniuiando to- 
do o processo. 

30 CLS 

40 LET X-17 

50 LET Y-20 

60 LOCATE X.Y: PRINT " skBh " 

70 AS-INKEYS:IF A$-"" THEN GOTO 

70 
80 LET LX-X:LET LY-Y 
90 LOCATE LX,LY:PRINT- 
100. IF A$-CHR$(27) THEN END 
110 IF AS-CHRS(28) THEN X-X+1 
120 IF AS-CHRS(29) THEN X-X-1 
130 IF AS-CHRS(30) THEN Y-Y^l 
140 IF A$-CHRS(31) THEN Y-Y+1 
150 IF X<0 OH X>36 THEN X-LX 
160 IF Y<0 OR Y>20 THEN Y-LY 
170 GOTO 60 

O programa para a litiha MSX e bas- 
tante compacto e elegante. A linha 60 
coloca a base em posii^ao inicial (tres ca- 
racteres graficos), que e definida nas li- 
nhas 40 e 50, ou seja, na linha 20 e na 
coJuna 17 (no meio da ultima linha da 
tela). A linha 70 detecta se alguma tecla 
foi pressionada. 

Se alguma tecla foi pressionada, o 
programa arnia/cna em LX e LY as 
coordenadas da ultima posit;ao da base 
(X e Y). para usa-las posteriormente <li- 




Por que o meu programs "bomba" 
listo e, falhal se, num jogo qualquer, 
a fjgura que est^ sendo movimentada 
atinge a borda da tela? 

Provavelmente porque um dos va- 
lores que controlam o posicionamemo 
da impressao do gr^fico na tela tornou- 
se muito grande ou muito pequeno, ex- 
cedendo os Irmites da tela. Portanto, 
verifique de novo as linhas que fazem 
essa tarefa, caso voce obtenha alguma 
mensagem de erro do computador, 
neste sentido. Por precaupao, 6 sem- 
pre recomend^vel testar os valores de 
posicionamento antes de imprimir algu- 
ma coisa na tela: se eles excederem os 
limites, podem ser corrigidos para fica- 
rem dentro da tela. 



nha 80), e apaga a base nessa posi<;ao, 
por meio da linha 90. 

Ah linhas 100 a 140 detectam se a te- 
cla apertada loi uma das seguintes; tle- 
cha para cima, Oecha para baixo, ttecha 
para esquerda c Hexa para direita (teclas 
de com role do cursor), que sao ideitti- 
ficadas pclos scus codigos respeciivos 
(29, 28, 30 e 3 1 ). O jogo termina quan- 
do a tecla CLEAR (codigo 26) tiver si- 
do pressionada. 

As linhas 150 e 160 verificam se as 
bordas da tela foram ultrapassadas. Se 
foram, retornam a posit^ao da base pa- 
ra as ultimas coordcnadas {LX e LY). 

Finalmcnte, a linha 60 faz o cicio se 
repetir, para a proxima pres.sao a tecla. 



FACA SEU JOGO 



Agora voce ja tem alguns blocos a 
partir dos quais podem ser montados va- 
rios jogos. O exemplo abaixo mastra co- 
mo usa-lo.s para dcsenvolver um jogo 
bem simples, em que um catihao m6vel 
dispara mfsseis em direi;ao a um alvo 
(uma estrela): 

El 

20 CLS 

30 FOB N-1 TO 100: NEXT N 

40 LET PO-430 

50 LET BS-CHB$(143}+CHRSC140)+C 

HRS 1128) -i-CHHS (140) +CHR5 (143) 

60 LET A-aNDC30)+64 

70 PRINT SA."*" 

80 LET LP'PO 

90 PRINT ePO.BS 

100 IF PEEK(340)-247 THEN LET P 

0-PO-l 

110 IF PEEK(338)-247 THEN LET P 

O-^PO+l 

120 IF P0<4i5 OR P0>444 THEN LE 

T PO-LP 

130 LET KS-INKEYS 

140 IF KS-'F" THEN LET M-PO-30 

ELSE GOTO 60 

150 PRINT eW, "T"i 

160 PRINT eM+32, " " ; 

170 LET M=M-32 

160 IF M-A THEN GOTO 20 

190 IF M>0 THEN GOTO 150 ELSE P 

HINT €«+32, " " ; 

2 00 GOTO 60 



D 



20 
30 
40 
50 



60 
70 
80 
90 



CLS 

FOR N-1 TO 100: NEXT N 

PO=600 

BS = CHRS (32)+CHRS (184) 

CHR${191)+CHR$(130) 

CHR$(32) 

A=HND(60) +2 

PHINTeA, "*" i 

LP = PO 

PRlNTePO.BS; 



100 


IF PEEK{14344)<>0 THEN 
PO-1 


P0= 


110 


IF PEEK (14368)00 THEN 
PO+1 


PO- 


120 


IF PO<767 OR P0>828 
PO^LP 


THEN 


130 


KS=INKEyS 




140 


IF KS="F" THEN M=P0-62 
GOTO 80 


ELSE 


150 


PRINTeM.CHRS(94) ; 




160 


PRINTeM+64.'' '*; 




170 


M=M-64 




ISO 


IF M=A GOTO 20 




190 


IF M>0 THEN GOTO 150 
PRINT eM+64," "; 


ELSE 


200 


GOTO 80 





Para rodar tambem no ZX-81, digi- 
ic o programa abaixo apenas com letras 
maiusculas; 

20 CLS 

30 PAUSE 25 

40 LET Jt-15: LET y-21 

50 LET BS-' JU " 

60 LET a-INT (RND*283+2 

7 PRINT AT 2.a;"*" 

80 LET xx-x 

90 PRINT AT Y.x-.BS 
100 IF INKEYS-"z" THEN LET X- 
x-1 

110 IF INKEYS-"3l" THEN LET X- 

X+1 

120 IF x<0 OH X>27 THEN LET x 

-XX 

140 IF INKEYSO'f THEN GOTO 

SO 

145 LET m-y-1 

150 PRINT AT ■,x+2;''T'' 

160 PRINT AT lB+l,x+2;" " 

170 LET m»m-l 

180 IF 1II-2 AND x+2-a THEN 

GOTO 20 

190 IF mOl THEN GOTO 150 

195 PRINT AT B+1 , X-t-2 ; " " 

200 GOTO 80 



ffM 



20 CLS 

40 LET X-17:LET Y-20 

50 LET BS-' Jk - 

60 LET A-INTCRND(l)*36)+2 

70 LOCATE A, 0: PRINT "*" 

80 LET XX-X 

90 LOCATE X,Y: PRINT B$ 

95 LET AS-INKEYS:IF AS-"" THEN 

GOTO 95 

100 IF AS-CHRS(28) THEN LET X-X 

H 

110 ir A3-CHR$(29} THEN LET X-X 

-1 

120 IF X<0 OB X>35 THEN LET X-X 

X 

130 IF ASO ■ ' THEN GOTO 60 

140 LET M-Y-1 

150 LOCATE X+2,M:PRINT "■" 

160 LOCATE X+2,M+1: PRINT - " 

170 LET M-M-1 

180 IF M-0 AND X-r2-A THEN GOTO 

20 




190 IF MOO THEN GOTO 150 
200 LOCATE X+2 ,M+1 : PRINT" " 
210 GOTO 80 

Quando voce executar o programa, 
verd uma estrela perto do lopo da tela. 
As teclas Z e X movem a base de fogue- 
tes para a esqucrda e a dire it a, e a tec la 
F dispara o missil para desiruir a estre- 
la em sua posigao. 

Pense no programa como tendo tres 
partes: unia, ate a linha 70; oulra, da 80 
ate a 120; c a liliima. da 1.10/140 ate a 
200. 

As linhas que vao de 1 30/ 1 40 ate 200 
sao similares ao programa anterior que 
dispara missil, 

As variaveis e os GOTO foram mu- 
dados, mas a linica linha adicionada foi 
a 180, Ela verifies se o missil e a estrela 
estao no mesmo lugar, O programa re- 
corne(;a em caso positivo. 

A pon;ao central, da linha 80 a 120, 
i uma versac compacts do programa 



"Mpvimcntos Sobre a Tela" . Os PKEK 
no programa para o CP400 verificam se 
Z ou X foram acionados e alteram PO 
de maneira apropriada, 

A primcira parte do programa tern 
varias funcoes. A linha 30 provoca uma 
pequena pausa antes que o programa 
continue. Isso e importante quando a li- 
nha 180 fecha o laco no tim do progra- 
ma. As linhas 40 e 50 determinam a po- 
si(;ao inicial da base e definem sua 
forma. 



MELHOR MOVIMENTACAO 



Prcssionar a tccla que move a base 
para a direita ou para a csquerda toda 
vez que se precisa deslocar figuras e bas- 
tanie cansativo. Entao, usualmenie 
montamos um mecanismo de auto- 
repeiiijao. 

AJguns micros, como os da linha 
MSX, possuem auto-repetigao em todas 



as teclas; por isso o programa dado aci- 
ma nao necessita qualquer modificagao: 
basia Hear pressionando a tecla de co- 
maiido para baixo. que a base se move 
automaticamenle. 

Ja para os computadores que nao dis- 
poem desses recursos, temos que nos sa- 
tisfazer com o INKEYS, mesmo, Mas e 
dificil program ar movimentos continuos 
usando INKEYS. 

Um modo de se resolver esse proble- 
ms e ilu.«rado a seguir. 

D 

20 CLS 

30 LET BLS=CHRS(128) 

40 LET PO=23B 

50 PRINT ePO.BLS 

60 LET LP=PO 

70 IF PE:EK(340)-247 THEN LET PO 

=PO-i:GOTO 120 

80 IF PEEK(338)=247 THEN LET PO 

=PO+1:GOTO 140 

90 IF PEEK(33e)-251 THEN LET PO 

=PO-32:GOTO 150 

100 IF PEEK[342)-253 THEN LET P 

0-PO+32:GOTO 150 

110 GOTO 70 

120 IF (LP AND 313=0 THEN LET PO 

-LP 

130 GOTO 150 

IF(PO fttJD 31) 



THEN LET PO 



140 

= LP 

150 IF PO>510 OH P0<0 THEN LET 

PO=LP;G0TO 70 

160 PRINT gLP, " " ; 

170 PRINT ePO.BLS: 

180 GOTO 60 



Q 



20 CLS 

30 BL$ = CHRSa91) 

40 PO=540 

50 PRINTePO.BLS; 

60 LP=PO 

;0 IF PEEK (14344) OO THEN P0 = 

P0+1:GOTO 120 
80 IF PEEK(1436a) <>0 THEN P0= 

P0-1:G0T0 140 
90 IF PEEK<14352)<>0 THEN P0= 

P0-64:C0T0 150 
100 IF PEEKfl4400)<>0 THEN P0= 

P0+64;G0TO 150 
110 GOTO 7 

120 IF CLP AND 63) =0 THEN PO-LP 
130 GOTO 150 

140 IF tPO AND 63)-0 THEN PO=LP 
150 IF PO>1022 PR PO<0 THEN P0= 

LPiGOTO 70 
160 PHINTeLP," "; 
170 PRINT«PO,BLS; 
IBO GOTO 60 

Ao executar este programa voce terd 
um bloco posicionado no centre da te- 
la. O programa permite que voce o mo- 
va para cima e para baixo, para a direi-B, 
ta e para a esquerda. 
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Os computadores contam bm binario, 
como se tivessem milhoes de maos com 
um dedo sd. Para aprender a programar 
em codigo de maquina, voce deve 
conhecer esse sistema. 



Um dos problemas de se aprender co- 
digo de maquina e que voce precisa en- 
tender um pouco da teoria dos iiumeros. 
Nao e uma tarefa tao dificil quanlo po- 
de parecer. Se voce sabe contar ate 16, 
nao tera qualquer dificuldade. Mas, ini- 
cialmente, e precise aprender a contar 
ate 2. 



POn QUE A BASE 10? 



Mesmo a pessoa mais avessa a mate- 
matica nao tern qualquer dificuldade pa- 
ra dizer as horas ou aconipanhar o re- 
sultado de uma partida dc futcbol. O 
uso dos nilmeros faz parte do dia-a-dia 
de tal forma que nunca nos preocupa- 
mos com a maneira com que eles fun- 
cionam. 

No mundo ocidcntal usamos habi- 
tualmcnte um sistema numerico basea- 
do no nijmero 10. Isto significa que co- 
me^amos uma contagem usando os nil- 
meros de a 9. Se precisarmos de uma 
grandeza maior do que 9 (por cxempio, 
10), usamos os digitos disponiveis. As- 
sim, colocamos o 1 na "casa" da es- 
querda e o a sua direita. 

Este e chamado um sistema de nume- 
ra^ao de base 10 ou decimal, porque o 
valor do digito e multiplicado por 10 a 
cada posiijao que contamos, a partir da 
direita. Por exemplo, o nijmero 3275 va- 
le 5 -I- 7x 10 + 2x lOx 10 -(- 3xlOx 
tOx 10 ouseja 5-^10-1-200-^3000. Ca- 
da digito multiplica seu valor absoluto 
por 10 a cada vez que e movido uma po- 
si^ao mais a esquerda. Todo sistema que 
usa esse metodo para rcpresentar mime- 
ros e chamado dc posicionai. 

Tudo isso parece obvio porque faze- 
mos esses c^lculos todos os dias, sem 
pensar muito neles. Entretanio, existem 
outros sisiemas de numera^ao, diferen- 
tes do decimal, como por exempto, os 
que sac usados nos modernos micros. 



SISTEMAS ANTIGOS E NOVOS 



Os antigos babilonios tinham um sis- 
tema de numeragao baseado no niime- 
ro 60. Os vestigios disso podem ser vis- 
tos nas nossas medidas de tempo e de 
angulos: existem 60 segundos em cada 
minuto, 60 minutos em cada hora, as- 




sim como 60 minutos de arco em um 
grau e 6 vezes 60 graus — ou scja, 360 
— num circulo complete . 

Voce podc contar ate 59 segundos, 
mas, se adicionar mais um segundo a es- 
se nijmero, tera um minuto e rccomeca- 
ra a contar os segundos do 0. E quando 
tiver 59 minutos e 59 segundos, um se- 
gundo a mais fara uma hora. sendo ze- 
rados OS minutos e segundos. 

Resquicios de nuraerai;ao cm outras 
bases podem ser enconirados em veihos 
sistemas de medidas da Inglaterra. Exis- 
tem 8 pintas em cada galao. 12 polega- 



das em cada pe e 16 oni;as cm cada li- 
bra. Outra base que ocorre com fre- 
qiiencia e o mimero 12. Temos 12 pole- 
gadas em um pe. 12 unidades em uma 
dCi^ia e 12 diizias em uma grosa. A base 
12 era muito usada lanto para dinheiro 
como para bens, devido a facilidade 
com que .se divide por 2, 3, 4 ou 6. Cer- 
tas coisas tinham que ser divididas en- 
ire virias pessoas, e a base 12 tornava 
as transagoes muito mais simples. O mi- 
mero 10, ao contrario, sd e divisivel por 
2 e 5. Vemos, portanto, que muiias ve- 
zes e conveniente usar outra base que 
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SISTEMA DECIMAL 



OUTROS 5ISTEMAS NUMERICQS 

com CONTAR EM BASE 9 

CONTAS EM DFEREMTES BASES 

CONVERSOR PARA 



TODAS AS BASES 



SISTEMA BINARIO 



BITS E BYTES 



COMO COMPUTADOR 



FAZ SOMAS 




aao 10. Unia libra de peso, por cxem- 
plo, pode ser dividida em ornjas por su- 
cessivas divisoes ao raeio. 



CONTANDO COM MOVE DEDOS 



Nao ha nenhuma razao que impe^a 
o uso de um sistema baseado em qual- 
quer niimero escolhido ao acaso. Se ti- 
vessemos nascido, todos, com 1 dedo a 
menosem uma das macs, provaveimen- 
le usan'amos um sistema "nonario" ou 
seja. de base 9. Contariamos normal- 



O!^ dcz dedos das mao!> levaram 
<i homem a conlar usando a ba&e 10. 
AiixilJiires de cakulo simples, ir»mo n 
abaco, ou contador, sao um 
muddo mecanico d» nossos dedos. 



mente at^ 8 e, para obter o numero se- 
guinte, colocariamos o 1 numa posi^ao 
mais a esquerda e o na posigao a di- 
reiia. Ou seja, o decimal 9 seria reprc- 
sentado no sistema nonario pelo niime- 
ro 10. 

Da mesma forma, se somassemos 1 
a 18, teriamos 20; e 100 se somissemos 
1 a 88. 

Como se pode ver pelo exemplo aci- 
ma, as regras da aritmetica se aplicam 
scmpre, nao importando qual seja a fa- 
se do seu sistema de numeraijao. Voce 
pode tentar opera(;oes simples nura sis- 
tema de base 7 ou 8, e assim por diante. 
Qualquer que seja a base, as regras ma- 
temdticas sao scmpre vaiidas. 

No nosso sistema nonario, a cada ca- 
sa para a esquerda que o numero desio- 
ca, seu valor absolute e multiplicado por 
nove. Dessa forma, 3275 em nonario e 
igual a 5 + 7x9 -I- 2x9x9 + 3x9x 
9x9, ou seja, 2417 em decimal. Voce 
deve ter notado que nao existe o niime- 
ro 9 no sistema nonario. Ele e represen- 
tado por 10. Assim, scria correto dizer 
que, em nonario, 3275 e igual a 5 4- 
7x 10 + 2x lOx 10 -h 3x lOx 10x10. 

Com um pouco de agilidade mental 
voce pode fa/er alguns calculos simples 
em nondrio, Por exemplo: 99x 9 diS 891 
em decimal. Em nonario, o niimero 99 
e represeniado por 1 20; isto e: 1x9x9 
+ 2x9, ou 81 + 18. E 9 e 10. 

Assim, em nonario, 99x9 se traduz 
por 120 X 10 ou 1200, quee 1 x9x9x9 
-I- 2x9x9, 891 em decimal. 

Qualquer adiijao, subtrat^ao, multi- 
plica(;ao ou divisao de niimeros nona- 
rios funcionara normalmente. Confira 
VOC& mesmo. So e precise um pouco de 
cautela. Lembre-.se que 16 em decimal 
e 17 em nonario. 



PROBLEMAS OAS BASES ACIMA OE 10 



Lidar com sistemas numericos de ba- 
se maior que 10 e um pouco mais dificil 



do que vimos ate agora. Para maneja- 
los mais facilmente, temos que inventar 
novos niimeros. 

Dessa maneira. se voce quisesse cm- 
pregar um sistema de base 12, leria de 
inventar niimeros para representar o 10 
e o 1 1. Em duodecimal, 10 representa 
1 X 12, ou 12. E 11 significa 1 x 12 -t- 1, 
ou seja, 13 em decimal. 

O modo mais facil de aumentar a fai- 
xa dos niimeros e utilizar o alfabeio. O 
10 pode ser A, e o 1 1, B. A2 seria, as- 
sim, 122; e BA, 142. 



UM PROGRAMA PARA TODAS AS BASES 



Fazer conias em bases de numera?ao 
que nao sejam decimals pode ser bastan- 
te dificil e cansativo. Assim, apresenta- 
mos aqui um programa que faz contas 
em qualquer base ate 36, Quando voce 
rodd-lo, ele vai perguntar em que base 
quer trabalhar. Voce deve responder em 
decimal. 

A .seguir, ele pede um numero. Este 
deve ser digitado na ba.se que voce sele- 
cionou. Se foi a base 8, nao deve haver 
nenhum niimero acima de 7. E se voce 
escolheu uma base acima de 10, os n^- 
meros acima de 9 deverao ser digitados 
por meio das letras do alfabeto, sempre 
maiiisculas. 10 sera A, 11, B, 12, C, e 
assim por diante, 

Entao, o computador perguntara que 
opcracao voce deseja ( 4- , - , ♦ ou / re- 
presentando respectivamente soma, sub- 
tragao, multiplicafao e divisao). .Apds 
isso, voce devera digitar outro numero. 
na mesma base do anterior. Se a sua 
operagao e divisao, e a resposta nao e 
um inteiro, o computador Ihe dira que 
a operagao nao sera realizada. "Divisao 
nao exata", sera a mensagem no video. 
Se nSo; a operagao e seu resultado apa- 
recerao na tela na base que voce esco- 
lheu para operar. 



JAS 



IBS 



uu 




10 


CLS 




20 


INPUT" 


BASE (ATE 36) ";B 


30 


INPUT" 


NUMERO (INTEIRO) 


40 


INPUT' 


SINAL " ;SS 


50 


INPUT- 


NUMERO (INTEIHO) 


60 


PS-AS 


GOSUB 210 



70 XS-STR$(DE) 

80 P$-B$:G0SUB 210 



I^T c^moomMQum i ~1 



III ill 



90 YS=STRS(DE) 



TKEN 



S$- 



SS- 



S5-" 



THEN 



THEN 



THEN 



100 IF 
L(Y$) 
110 IF 

120 IF 

L(y$) 

IJO IF 

L(YS) 

140 IF X<>INT(X) 

SIVEL-iGOTO 190 

ISO U-B*INT(X/B) : IF 

N$-CHR$(55+ !X-U) )+N 

160 N$=MIDS (STHS (X 

170 X-rNT{X/B) 

180 IF X>0 GOTO 150 

190 PRINT «257,AS+" 

:'- -;NS 

200 END 



TH 



X=UAL(XS)*VA 

X-UAL(XS)/yA 

X-VAL(XS)+VA 

X-VAL tX$) -VA 

EN NS-'IMPOS 

X-U>9 THEN 
S:GOTO 170 
U)+NS, 2) 



•+33+" 



•+BS 




UM MODELO PARA NUMEROS EM 
DtFERENTES BASES 

As vezes 6 muito diffcil visualizar co- 
mo funciona um sistema de numerapao 
de base diferente ao de base 10. Afi- 
nal, nao € fScil ter que cortar fora al 
guns dedos. ou fazer crescer dedos adi- 
cionais nas maos, de modo que voc6 
parece obrigado a se sattsfazer com o 
que tern! Mas seria possfvel, porexem- 
plo. grudar dois dedos um no outro com 
fita adesiva, para contar na base 9, ou 
usar dois palitinhos extras de conta- 
gem, para trabalhar na base 12. 

Uma solupSo mais inteligente seria 
coristruir o seu pr6prio dbaco, ou cal- 
culadora de continhas, similar Squeles 
mostrados nas f otos que acompanham 
esta licao. Um ^baco convencional 
(mesmo aqueles de brinquedo, para 
criaofja) pode ajudar e agilizar as con- 
tas no sistema de base 10: assim, vo- 
c6 pode criar um ^baco com tantas bo- 
linhas em cada vareta da moldura quan- 
tas quiser. Nao 6 necess^rio nem mes- 
mo construir uma moldura cheia de ara- 
mes, mas simplesmente arranjar uma 
s6rle de sulcos paralelos, para conter 
as boltnhas e fazS-las rolar para cima 
ou para baixo. 

Nao se esqueca de que o numero de 
continhas em cada fileira 6 um a me- 
nos do que a base em que voce quer 
trabalhar. Assim, na base 10, voc§ pre- 
cisa de 9 contas, e na base 2, de ape- 
nas uma, Nenhuma bolinha equivale ao 
numero zero, em qualquer sistema de 
numerapao. Uma bolinha afastada das 
demais significa o numero 1, e assim 
por diante. Quando a operagao exigir 
mais de 9 bolinhas no sistema decimal, 
zere a fileira de volta, e suba uma boli- 
f^ha na fileira seguinte (d a opera^ao de 
\/ai-um"). 



210 DE-0 

220 IN-0 

230 Y-AEC<RIGHTS(PS,1) } 

240 IF y<58 THEN D=Y-48:G0T0 26 



250 D-Y-55 

260 DE-DE+D^B'IN 

270 P$-LEFT$<PS,LEN{PS)-1) 

280 IN-IN+1 

290 IF LE;N(PS)>0 THEN GOTO 230 

300 RETURN 

Este programa, como esta, roda ape- 
nas nos compativeis com o TRS-Color. 
Para roda-lo nos modelos TRS-80, mo- 
difique a linha 190 para: 



190 PRINTe513,AS+" 
+ B$+ "= '■ ;NS 



' + S$ + 



LINE aS 
'Numero {inteiro) 



LET x-VAL 



LET nS- 



10 POKE 23658,8 

20 INPUT "Base (ate 36) ";b 

30 INPUT "Numero (inteiro) " 

LINE as 

40 INPUT "Sinal 

50 INPUT 

LINE b$ 

60 CLS 

70 LET p$-a$: GOSUB 180 

80 LET x$-STRS dec 

90 LET pS-bS: GOSUB 180 

95 LET yS-STRS dec 
100 LET z$-x$+sS+y$: 
zS 

HO IF xOINT X THEN 
Imposaivel realizar a operacao 
. " : GOTO 160 
120 LET nS-"" 

130 LET u-INT (x/b) ; LET ii-u*b 
: IF x-u>9 THEN LET nS-CHRS ( 
55■^(x-u) )-HlS: GOTO 140 
135 LET nS-STRS (x-u)+nS 
140 LET x-INT (x/b) 
150 IF x>0 THEN GOTO 130 
160 PRINT AT 10,0;dS+3S+bS;"- 
" itiZ 

170 STOP 
180 LET dec-0 
190 LET indice-0 
200 LET Y-CODE pS{LEN p$) 
210 IF y<58 THEN LET d-y-4B: 
GOTO 220 
215 LET d-Y-55 
220 LET dec-dec-»-d*b'indice 
230 LET pS-p$(l TO (LEN pS)-l) 
240 LET indice-indice+1 
250 IF LEN pS>0 THEN GOTO 200 
260 RETURN 



m 



10 CLS 

20 INPUT 'BASE (ATfi 36) ";B 

30 INPUT "NUMERO (INTEIRO) ' ; AS 

40 INPUT "SINAL " ; SS 

50 INPUT "NOMERO (INTEIRO) ";BS 

60 PS-A$:GOSUB 210 

70 X$-STRS(DE) 

80 PS-B$:GOSUB 210 

90 YS-STRS (DE> 

100 IF SS-"*" THEN X-VAL {XS)*VA 

L{YS) 



110 IF SS-"/" THEN X-VAL CX$)/VA 

L ( YS) 

120 IF SS-"+" THEN X-VALIX$)+VA 

L(YS) 

130 IF SS-"-" THEN X-VAL (XS)-VA 

L(Y$> 

140 IF X<>INT(X) THEN NS-"Opera 

glo iiBPOSsivel" :GOTO 190 

150 U-B*INT(X/B) rIF X-U>9 THEN 

NS-CHRS (55+ (X-U) )+NS:GOT0 170 

160 N$-HIDS(ETRS(X-U>+N$. 2) 

170 X-INT (X/B) 

180 IF X>0 GOTO 150 

190 LOCATE 0,12: PRINT AS+" "+S$ 

+ " " + BS+" " + "-"-f'' "+NS 

200 END 

210 DE-0 

220 IN-0 

230 Y-ASC (RIGHTS (PS, 1)) 

240 IF Y<58 THEN D=Y-48:G0T0 26 



250 D-Y-5S 

260 DE=DE-t-D*B''IN 

270 PS-LEFTS (PS, LEN(PS)-l) 

280 IN-IN+1 

290 IF LEN(P$)>0 THEN GOTO 230 

300 RETURN 
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QUh 



1 B] 



190 HTAB 10: VTAB 15: PRINT AS 



HOME 

INPUT 

INPUT 



10 

20 

30 

;AS 

40 INPUT ' 

>" ;S$ 

50 INPUT ' 

> gg 

60 PS - AS; 
70 X - DE 
80 PS - BS 



BASE (ATE 36) ->"!B 
NUMERO (INTEIRO) ->" 

OPERACAO (+.-,*./) - 

NUMERO (INTEIRO) ->" 

GOSUB 210 

GOSUB 210 






ASC ( RIGHTS 
< 58 THEN D 



90 Y 

100 

110 

i20 

130 

140 



• DE 
IF SS 



*" THEN X - X * Tf 
IF SS * "/" THEN X = X / Y 
IF SS = "+" THEN X = X + y 
IF SS = '-' THEN X - X - Y 
IF X < > INT (X) THEN NS 
- "NAO DA" : GOTO 190 
150 U ' B * INT (X / B) : IF X 
- U > 9 THEN NS - CHRS (55 + ( 
X - U) ) + NS: GOTO 170 
160 NS - STHS (X - U) + NS 
170 X - INT (X / B) 
leO IF X > THEN 150 



i" ";SS;" ":B3; 

200 END 

210 DE 

220 IN 

230 Y 

240 IF Y 

GOTO 260 
250 D - Y - 55 
260 DE - DE + D * B 
265 IF LEN (PS) - 
URN 
270 PS - 

1) 
280 
Z90 
300 



;NS 



(PS 
- Y 



1) ) 
- 46: 



IN 
THEN 



RET 



LEFTS (PS. LEN (PS) - 



IN - IN + 
GOTO 2 30 
RETURN 



Se voce acha que fazer contas em di- 
versas bases e mais do que pretende sa- 
ber algum dia. note que o computador 
tambem (rapaceia. O programa, na rea- 
lidade, convene os numeros que voce di- 
gitou em decimals, executa a operagao 
e reconverte o resultado para a base que 
voce escolheu, Ao contrario da mente 




humana, o computador so consegue fa- 
zer calculos em decimal, deniro de urn 
programa escrito em BASIC, apesar de 
converter os numeros para binario, 
quando as instru?6es sao traduzidas pa- 
ra cddigo de maquina durante a execu- 
fao do programa. 



E AGORA, Blf^AfllOS 



Para os computadores digitals, o sis- 
tema de numera«;ao mais apropriado e 
o baseado no niimero 2. Isso acontece 
porque o computador e composto de 
circuitjos eletronicos que possuem dois 
estados evidentes: iigado e desligado. O 
estado "desligado" representa o niime- 
ro 0, e o "Iigado", o nilmero i. E, na 
base 2, esies sao todos os numeros de 
que voce necessita para expressar qual- 
quer valor. 

O sisiema de numeracao de base 2 e 
conhecidocomo "binario". Ele 6 com- 
posto apenas por zeros e uns; todos os 
oulros numeros foram abolidos. Dessa 
forma, se voce come^ar a contar da ma- 
neira habitual, nao vai passar de 1. So- 
me 1 a 1 e lera o mimero 1 deslocado 
uma casa para a esquerda, enquanto a 
casa da direita e zerada. Assim, em bi- 
nario, 1 + 1 = 10. 

Contar de a 8 resulta em 0, 1 , 10, 
11, 100, 101, 110. 111. 1000. Novamen- 
te, estes numeros obedecem as leis da 
aritmetica. Se voce quiser somar lO-t^'1 1 , 
deve primeiramenie somar os dois nu- 
meros da dirciia, O-i- 1. A seguir, devem 
ser somados os dois da esquerda, 1 + 1, 
o que da 2; so que 2 em binario e 10, 
Assim 10 -I- 11 = 101;ouseja,2 + 3 = 5. 

SubtrafSo em binario e urn processo 
tao direto quanto a soma. O unico de- 
talhe a observar e o mimero que se "le- 
va" para a pr6xima casa. 

A multiplica(;ao e a divisao sao ex- 
traordinariamente faceis, mesmo para 
seres humanos "normals". Na realida- 
de, e tao facil que "ate" um computa- 
dor pode fazer essas opera(;6es. No pri- 
meiro caso, tudo se resume a multipli- 
car 0x0, que da 0; x 1 , que tambem 
da 0; ou ! x 1, que da 1. 

A divisao e igualmente simples; em 
cada operagao, basta decidir se o divi- 
sor esta dentro do divjdendo uma vez ou 
nenhuma vez. 

Con lira voce mesmo como os proces- 
sos aritmeticos funcionam em binario. 
O painel das pdginas seguimes da exem- 
plos de opera<;6es para voce fazer. 



Quaiquer sistcma de numerafao pode ser 
imitsdo por um modelo mecanico: 
o reldgiu, pnr exempio, usa a bsuit 60, 
enquantn o ibaco uliliza a base 10. 
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BITS E BYTES 



Os niimeros binirios refletem exata- 
mente o que acontece no computador. 
As instruijoes ou dados que voce dd a 
ele sao codificados em numeros blnd- 
rios, que, por sua vez, sao manipulados 
e armazenados petos circuitos internos 
do aparelho. Assim, quando voce come- 
fa a dominar o sistema bindrio, come- 
ga tamb^m a compreender como funcio- 
na o computador. 

Cada um dos digitos de um niimero 
bin^rio e representado eletronicamente 
dentro do computador por um circuito 
ligado ou desligado, Se est^ ligado, o va- 
lor e 1 . Se, pelo contririo, o circuito es- 
ti desligado, o valor ^ 0. Cada digito 6 
conhecido como um bit. 

Esses circuitos sao agrupados em uni- 
dades maiores, que representam niime- 
ros tambem maiores e mais liteis. Em 
qu'ase todos os micros, os bits estao or- 
ganizados em grupos de oito, forman- 
do que se conhece como um byte. Ca- 
da byte representa, assim, oito digitos 
binarios, de forma que pode armazenar 
qualquer numero ent re 00000000, ou ze- 
ro, e liniin, ou 128 + 64 -H 32 -h 16 + 
8 + 4 + 2+ 1, que e255. Numeros maio- 
res que 255 sao representados por dois 
ou mais bytes. 



FRACOES SFMARIAS 



Todos OS programas e exemplos da- 
dos ate aqui manipularam niimeros in- 



DO 



tetros. £ possfvel, tambem, converter 
fracjoes em numeros binarios. 

Por exemplo, 1/2 6 0.1 em binario; 
1/4 6 0.01 el/8 6 0.001 . Existe um pa- 
drao determinado, Qualquer fragao po- 
de ser formada a partir de l/2s, l/4s, 
l/8s, l/16s, etc., da mesma forma que 
qualquer numero inteiro pode ser for- 
mado a partir de Is, 2s, 4s, 8s, etc. O 
problema e que i mais dificil trabalhar 
com fraffles binirias porque sempre te- 
mos uma infinidade de Os e Is! 

Quando voce converie fra(;6es, e me- 
Ihor pensar nelas como 0.5; 0,25 e as- 
sim por diante. Desta forma, voce po- 
de raanipular uma fra^ao como 0,75 co- 
mo sendo 1 x 0.5 + I x 0.25, o que sig- 
niftca em binario 0. II. 

proximo programa permite que vo- 
ce trabalhe com fracoes binarias sem 
grandes dificuldades: 



10 CLS 

20 PRINT'CONUEBSAO DE DECIMAL P 

/ BINARIO" 

30 PRINT: IKPUT"[>IGITE UM NUMERO 

ENTRE E 1 "jN 
40 IF NC-0 OH N>-1 THEN 30 
50 NS-"0." 
60 FOR T-1 TO 30 
70 N-N*2 

80 NS-NS+CHRS(48+INT(N)) 
90 N-N-INT{N) 
100 NEXT T 

110 PRINT #257, "0 NUMERO BINABI 
E: " 
120 PRINT:PRINT NS:PRINT 



130 PRINT-'OUTRO NLfMEHO (S/N) ?" 

140 AS-INKEYS 

ISO IF AS-'S" THEN 10 

160 IF ASO'N" THEN 140 

170 END 

O programa acima, como esta, roda 
apenas nos compatfveis com o TRS- 
Color. Para os modelos tipo TRS-80, 
modifique a linha 1 10 para: 

110 PRINTe5l:3,"0 NUMERO BINARIO 



10 CLS 

20 PRINT '"Conversao de Deci» 

al para Binario" 

30 INPUT "Digite uja nunero en 

tre e 1",N 

40 IF N<-0 OH N>-1 THEN GOTO 

30 

45 PRINT ' '"Decimal ; "iN 

50 LET N5-'0." 

60 FOR T-I TO 16 

70 LET N-N*2+lE-9 

80 LET NS-NS+CHRS (48+INT N) 

90 LET N-N-INT N 
100 NEXT T 
110 PRINT ' "Q numero binario 



'Outro numero ( 



120 PRINT N$ 

130 PRINT ' ■ ' 

S/N)?" 

140 LET AS-INKEYS 

150 IF AS-"S" OR AS-'s" THEN 

GOTO 10 

160 IF ASO'N' AND ASO'n" 

THEN GOTO 140 

Tal como est^, o programa acima ro- 
da apenas no Sinclair Spectrum 




uooni 

+100010 
10001001 





SUBTRACno BINftRIA 
iOllOOl 

-noon, 
loono 




38 



A adi^so bindria funciona a partir da direita. + d& 0, 
di 1, e ! -I- 1 resulta em 10, que ^ o 
com "vsi-um" para o proximo dfgilo. Observe como essas 
opera^des fttnctoaam na soma realizada acima. 



+ I A subtnifao biniria i igualmente simpks. 1 - 1 di 0, — 1 
di 1. Agora, a opera^ao 1 - d4 e "val-tim" para o 
priiximo digito i esquerda. Os resultadosi, portanto, nao sao lodos 
exatamente iguais ao da mesma opera(ao no sistema decimal. 



(TK-90X). Para rodar no ZX-81, subs- 
titua as linhas seguintes: 

30 PRINT "ENTRE UM NUMERO ENTRE 

E 1" 
35 INPUT N 
80 LET NS-NS+CHES<2e+INT N) 



fffi 



10 CLS 

20 PRINT TAB{7) i'BlNARIO » DEC 
IMAL" 

30 PRINT: INPUT " digite un nUme 
ro entre e 1 " tti 
40 IF N<-0 OH N>-1 THEN iO 
50 NS-"0." 
60 FOR T-1 TO 30 
70 N-N*2 

BO NS-N$+CHBS(4e+INTtN)) 
90 N-N-INT(N) 
100 NEXT T 

110 LOCATE 0.10:PRINT "0 rnlm*ro 
binario € : " 
120 PRINT: PRINT N$:PRINT 
130 PRINT "outro numero (S/N) ? 

140 AS-INKEiS 

150 IF AS-"S" THEN 10 

160 IF ASO'N' THEN 140 

170 END 



aiE 



ID HOME 

20 HTAB 5: PRINT ''CONUERSAO DE 



Um ibaco binilrio utilizu uma conta em 
cada vsreia. No computador, 
es&a dUposi^ao i substituida 
por pulsos el^lricos. 




ftO DINAR I A DECIMAL 




13 K U 

1000 ml 



Cm cada fase da mulliplka^io biniria, vocS multipUca por 
0, que di 0, ou 1 por 0, que tambfm di 0, ou ainda 1 por 1, 
que results sempre em 1. Veja eomo ist« se aplica no exemplo 
actma, onde i simutada uma op«nifao no video do computador. 



Na divisSo bin&ria, finalmenle, t necessirio verlficar se o 
divisor cabe no dividendo pelo menos uma vez. Se isto 
acontecer, o resuKado seri I; caso con(r6rio. seri 0. 
bso faz da divisao uma das opera^des biit^rias mais !>imple$. 
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CIMAL PAilA BINARIO" 

30 PRINT : PRINT "DIGITE UM NU 

MERO": INPUT "ENTRE E 1 ->"iN 

40 IF N < - OR N > - 1 THE 

N 30 

50 N$ - -0." 

60 FOR T - 1 

70 N - N * 2 

80 NS - N$ + 

N)) 

90 N - N - INT 

100 NEXT T 

110 HTAB 1: VTAB 

NUMEHO BINAfilO E: " 

120 PRINT : PRINT NS: PRINT 

130 PRINT : PRINT "OUTRO NUMEH 

0? "; 

140 GET AS 



TO 38 



CHHS (48 + INT ( 



(N) 



IS: PRINT "0 



150 IF AS - "S" THEN 10 
l&O IF A$ < > "N" THEN 130 
170 END 

O programa aceita quatqiier numero 
enLre e 1 e imprime o seu equivalente 
binario. A linha VOcomeija por dobrar 
o seu luimero e a linha 80 constroi o nu- 
mero binario. Inicialmente o computa- 
dor trabaiha com o valor de INT{N), 
que sera ou ou 1 . Eniao, a esse valor 
adiciona-se 48 para perfazer 48 ou 49, 
que sao os codigos ASCII para e 1. 
Tudo tsto e feito de forma a transfor- 
mar os niimeros em cadeias de caracte- 
res para que possam ser acticionados a 
variavel N$. Na linha 90 tiranios a par- 



te inteira de N para deixar apenas a 
decimal. 

O programa no Sinclair Spectrum e 
urn pouco diferente, porque enquanto 
INT lei, como se espera, INT (.5 x 2) 
e 0. Isto acontece porque ele armazena 
.5x2 como .99999999,.. Assim. uma 
pequena I'ratao tern que ser adicionada 
a N na linha 70 para fazer com que INT 
t'uncione como deve. 

Nos modelos compativeis com o 
ZX-8I, a linha 80 usa outro numero pa- 
ra somar ao valor inleiro de N (observe 
que essa maquina nao usa o codigo AS- 
CII). O valor 28 corresponde ao carac- 
terc 0, valor 29 ao caractere 1, etc. e 
assim sucessivamenic. 



O LONGO TRAJETO DO ABACO A ELETRONICA 



Os iniTnerris binarirt<i piidem ser 
iidici4mad(»<<, siiblrm'dos, mulliplica- 
dos e divididcts como qualquer mime- 
Y» na base- lO. Rnlretanto, eles foram 
ewalhidns paru iiiill/avan nos c»m- 
piilad<»res ditjitais em virliidc de iimu 
pntpriL'dadf? sinfjular: e faci) verififur 
sc um delerminadi) circiiiln etctrico 
oil eletrank't) esia li^jado i>u desli- 
l>adc>. 

(K di)iil(»s binaries sao reprcf^en- 
tados por circiiilos dc ccmipulador. 
Quando tim lirciiito esta dcsli^^ado. 
ele represenia t> di}>itn 0, e ^uando 
csla li^ado, o Ai^tUt I. INos circui- 
Ins inlcgrados do cumputador, os 
t'irtiiilus hinarios sw arranjados 
i-m |y;rtipos Av 8, dt la! forma quo 4 
valores hinarioN dc 8 bils podem m 
ser reprcsrnladuK. Issn da uma 



gama de representa^'ao de OOAOOnOO 
— ou em decimal — a 1 1 1 1 1 1 1 1 — 




ou 255 em decimal. No manual do 
seu computad(ire*ise "numero migi- 
co" — 255 (on 256, se voce conlar 
a partir de I , ao inves de 0) — apare- 
ce a lodo momenlo. 

As vezes sao itecessarios niime- 
ros binarios muito maiores, e duas 
loca^'ues de memoria de H bits cada 
sao junladas para obler um numero 
binario de 16 bits. O microproces- 
sador Zilo|j /-80, evistenle em mui- 
Uift compuladores pessoais, eomo o 
TRS-80, OS compalivcis com MSX, 
ele. pode Irabijihar torn niimiTos de 
16 bits, e ate mesmo l'a;(er opcra^oes 
aritmeticas com eles. Meslcs casuji, 
numeros binarios enrre 
(KM)(»0«0000<M)<H)00 e 



I IIIJ I J I M 1 1 N li, ou M'ja. 

enlre c 65.553. em decimal, 

podem ser munipulados. 







=0 1 10 1 


1 1 


1 




= 1 0000000 







10011 n 11 01 1 1 1 0-01 1 101 10001 10011 = 0101 1001 1010101 1 



p 


^^^^ftBi 


»-;->. ^ 


syr^.- 








^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROGRAMACAO BASIC 

computador funciona de forma I6gica, embora nao tenha cerebro. 
Para isso, basta que voce o peograme de modo adequado. 

cOdigo de maquina 

Aprenda aritm^tica hexadecimal e domine o codrgo de maquina. 

PROGRAMACAO DE JOGOS 

Programe jogos, movendo figures em labirintos. 
Construa paredes intransponi'veis e encontre o mapa do tesouro. 

PERIFERICOS 

Como manipular o comando de gravacao e trabalhar com um 
gravador conectado ao seu micro. 



coiApy^ 



^OORtt 



PRJkflCO 
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'^ iSflSE^ 


m^<^^^ 


^^s\t ^' 
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